HA$PBExportHeader$w_splash.srw
forward
global type w_splash from window
end type
type st_copyright from st_uo_transparent within w_splash
end type
type st_5 from st_uo_transparent within w_splash
end type
type st_4 from st_uo_transparent within w_splash
end type
type st_3 from statictext within w_splash
end type
type st_aplicacion from statictext within w_splash
end type
type p_splash from picture within w_splash
end type
type uo_1 from u_cst_statictext within w_splash
end type
end forward

global type w_splash from window
integer width = 1911
integer height = 896
windowtype windowtype = popup!
long backcolor = 134217750
string icon = "AppIcon!"
boolean center = true
windowanimationstyle openanimation = centeranimation!
st_copyright st_copyright
st_5 st_5
st_4 st_4
st_3 st_3
st_aplicacion st_aplicacion
p_splash p_splash
uo_1 uo_1
end type
global w_splash w_splash

event open;Integer			li_ScreenH, li_ScreenW
Environment	le_Env
string ls_ruta,ls_ruta_logo
ls_ruta= gs_Unidad+"\RecursosApp.ini"
//uo_1.of_BackColor2(of_GetColor("BACKGROUND2"))
LONG  ll_color

//CONSTANT Long BLUE = RGB(185,210,248)
//
//uo_1.set
ll_color =RGB(185,210,248)
//uo_1.of_BackColor2(ll_color)
//uo_2.of_BackColor2(ll_color)

//If Message.StringParm = "hide" Then
//	This.Hide()
//	Return
//End If
//
//p_splash.Hide()
ls_ruta_logo	=	ProfileString(ls_ruta , "img", "logon", "")
p_splash.picturename=gs_Unidad + ls_ruta_logo

this.SetPosition (TopMost!)
//uo_1.SetPosition(ToBottom!)
//p_splash.SetRedraw(True)
//p_splash.OriginalSize = True
//THIS.RESIze( /*integer w*/, /*integer h */)
//This.Height = p_splash.Height
//This.Width = p_splash.Width
st_CopyRight.text =   'CopyRight '+string(year(today()))
p_splash.Show()

// Center window
GetEnvironment(le_Env)

//li_ScreenH = PixelsToUnits(le_Env.ScreenHeight, YPixelsToUnits!)
//li_ScreenW = PixelsToUnits(le_Env.ScreenWidth, XPixelsToUnits!)
//
//This.Y = (li_ScreenH - This.Height) / 2
//This.X = (li_ScreenW - This.Width) / 2
//This.SetPosition(Topmost!)
end event

on w_splash.create
this.st_copyright=create st_copyright
this.st_5=create st_5
this.st_4=create st_4
this.st_3=create st_3
this.st_aplicacion=create st_aplicacion
this.p_splash=create p_splash
this.uo_1=create uo_1
this.Control[]={this.st_copyright,&
this.st_5,&
this.st_4,&
this.st_3,&
this.st_aplicacion,&
this.p_splash,&
this.uo_1}
end on

on w_splash.destroy
destroy(this.st_copyright)
destroy(this.st_5)
destroy(this.st_4)
destroy(this.st_3)
destroy(this.st_aplicacion)
destroy(this.p_splash)
destroy(this.uo_1)
end on

event resize;//p_splash.height = newheight
//p_splash.width = newwidth

UO_1.height = newheight
UO_1.width = newwidth
//
//
end event

type st_copyright from st_uo_transparent within w_splash
integer x = 1394
integer y = 796
integer width = 485
integer textsize = -8
integer weight = 400
fontcharset fontcharset = defaultcharset!
string facename = "Tahoma"
long textcolor = 8388608
string text = "CopyRight 2011"
end type

type st_5 from st_uo_transparent within w_splash
integer x = 699
integer y = 612
integer width = 443
integer textsize = -8
integer weight = 400
fontcharset fontcharset = defaultcharset!
string facename = "Tahoma"
long textcolor = 8388608
string text = "V 2.0"
end type

type st_4 from st_uo_transparent within w_splash
integer x = 558
integer y = 540
integer width = 750
integer textsize = -10
integer weight = 700
fontcharset fontcharset = defaultcharset!
string facename = "Tahoma"
long textcolor = 32768
string text = "IT SOLUTIONS"
end type

type st_3 from statictext within w_splash
boolean visible = false
integer x = 407
integer y = 772
integer width = 754
integer height = 64
integer textsize = -10
integer weight = 700
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 8388608
long backcolor = 33554431
string text = "Cargando Librerias ..."
alignment alignment = center!
boolean focusrectangle = false
end type

type st_aplicacion from statictext within w_splash
boolean visible = false
integer x = 119
integer y = 52
integer width = 1623
integer height = 72
integer textsize = -10
integer weight = 700
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 134217730
long backcolor = 33554431
string text = "SISTEMA INTEGRADO DE RECURSOS Y APLICACIONES"
alignment alignment = center!
boolean focusrectangle = false
end type

type p_splash from picture within w_splash
integer x = 517
integer y = 128
integer width = 818
integer height = 416
boolean focusrectangle = false
end type

event constructor;//string ls_ruta
//ls_ruta = "..\\RecursosApp.INI"
//p_splash.picturename=ProfileString(ls_ruta , "img", "logon", "")
end event

event doubleclicked;close(parent)
end event

event clicked;close(parent)
end event

type uo_1 from u_cst_statictext within w_splash
integer width = 1897
integer height = 884
integer taborder = 10
long backcolor = 16777215
boolean #center = true
end type

on uo_1.destroy
call u_cst_statictext::destroy
end on

